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APRIL 1982 


Welcome to the third edition o-f the newsletter tor the imagina- 
tion machine. In order to have a really good newsletter, we 
need input from the members, both programs and helpful hints. 

So, please, contribute your games, answers to questions you • 0 
have had or answers to those we will list in the newsletter. 

Also, if you send in programs, we would appreciate them in 
tape form, they will be returned to you if requested, but we 
do not have enough time to type all of the program listings 
and we are currently having problems with some of them not 
working once we have keyed them in, especially those that 
are handwritten. 

1f)ir.t*t**'********%********'¥*********.***************i(***t****l(**t*t 
ANSWERS TD CLUBMEMBER QUESTIONS 

**************************■>!.**************************•¥********** 
To Chris Phillips 

1. Your question regarding a direct connect modem puzsels us, 
there is an SI-232 serial interface which can be used to 
interface with a modem or a printer. This interface has 
only one port to connect to either the printer or modem. 
There are adaptors sold that would take the SI-232 and 
creat two plugs for both the printer and the modem, however 
this just saves time from plugging and replugging, the com- 
puter does not understand if the modem and printer wotild 
both be running at the same time. We currently have two 
disk drives and a printer hooked up to our APF with two 
slots still empty. 

2. We do not think you can hook a monitor up to the APF. Our 
resolution with our TV is really pretty good. If you are 
using the computer more for business, we recommend switching 
to a black and white TV as they give better resolution. 

3. The basic in ROM does have the disk commands and the printer 
commands built in. 
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Answers to Mr. Phillips (continued) 

4. The machine is configured only to accept an additional BK of 
ram. This is a design limitation and not a limitation of 
the 6000 chip which will address 64k'. 

5. We have to get a maintenance manual to answer your last 
question. So hold that one until the next month. 


To HJT 

1. We are not familiar with the teletype models you mentioned 
however if it is RS-232 compatible, you can interface 
through the SI-232 port. 


To Gregory Carroll 

1. by the sounds of yau’r problem, you may have a power problem. 
It sounds like you are loosing power to the computer which 
would cause it to go fuzzy and reset itself. 


FROM OTHER CLUBMEMBERS 


1. From Don Schmidt, author of the Checkers program, line 620 
should be corrected as follows: 

620 SB=SB+16: SX=SB+7: NEXT X;RETURN:REM NEXT BLOCK 

2. for those members interested in writing in machine 
language, Don recommends "BASIC MICROPROCESSORS AND THE 
6800". it retails for $14.95, however, he stated it can 
be obtained from the distributor at a reduced prices 

Hayden Book Company Inc. 

c/o Transworld Distribution Services 

80 Northfield Avenuye 

Edison, NJ 08871 

Attn: Lorraine Corsey 
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*tttll.*tt************************l(***************ttt************* 


QUESTIONS TO OTHER MEMBERS 

1. If anyone is writing programs that would make the computer 
act like a calculator like sin(x), logK,. scientific 
notations please send us the program. We have a member who 
is looking for this type of help. 

2. Does anyone have a program to check out the RAM? 

*************'************************* 

If anyone would like to be contacted by other clubmembers, just 
send us your name, and address and we will publish it. If it 
is regarding one specific item, i.e. help with machine language, 
Just, let us know that and we will indicate it. I.ikewise, you 
you have anything you think is worth selling to other 
clubmembers, just let us know and we will also advertise for 
you. If you need to know just how good a program is, you can 
send us a copy for evaluation, we will try it out and return 
it to you with our comments. Remember, if you have programs to 
sell, documentation is very important (as we all find out while 
trying to understand the APF computer). 


tl(l(t**********if******t***ttif.********************t*************** 
PROGRAMS FROM OTHER CLUB MEMBERS 

*l(*til.ir.*it.*':^**ilf*'ifi(if*t****if**t*if*il(**if.*********t******t**********t*t 


PHANTASMABRAM 

from dan Ferguson of Virginia 

This program runs random shapes on the screen with Inovement. 


REM -DAN FERBUSON 
POKE 24578,54 
CALL 17046 

FOR A=216 TO 1 STEP -1 

C= INT ( RND (0)*129)+128iZ- INT ( RND (0)»129>+12B 
READ R 

FOR B-512 TO 1023 STEP A 
POKE B-32,Ci POKE B+32,C» POKE B-1,Z 
POKE B,Ri POKE B+l,Zi NEXT B 
CALL 170468 NEXT Ai GOTO 20 

DATA 143,159,175, 1 91 , 207, 223, 239, 25Si RESTORE 
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Ifttlft*********************************************************** 


ALPHABETIZER 

-from 7?7?7 there was no name on the 

program, i-f you would like to let us 
know who wrote this, we will publish 
it ne>:t month with another mystery 
wri tten proqram. 

1 REM -THIS PROGRAM WILL ALPHABETIZE A LIST OF UP TO 50 WORDS.#* 

RS AND NUMBERS CONTAIN UP TO 15 LETTERS, NUMBERS OR COMBINATION 0 

3 DIM K*(l) 

5 POKE 24578,54 
10 CALL 1704S 

20 INPUT "ENTER THE NUMBER OF WORDS TO BE ALPHABETIZED" . N 
30 DIM A*<49, 15) 

35 DIM T*{1,15) 

40 FOR X*1 TO N: PRINT "ENTER WORD NUMBER"»Xs INPUT A*(X.O) 

50 PRINT I PRINT 
55 NEXT X 

60 FOR X=1 TO N# PRINT A*(X,0)i NEXT X 
70 PRINT : PRINT 
80 FOR 1=1 TO N 
90 FOR J=1 TO N-1 

100 IF A$ (J, 0) >A« <J+1 , 0) THEN SOTO 110 

102 GOTO 140 

110 T«(1.0)=A*(J,0) 

120 A*(J,0)»A*(J+1,0) 

130 A*(J+1,0)»T«<1.0) 

140 NEXT J 
150 NEXT I 

160 FOR X*1 TO N: PRINT A*(X.O)i NEXT X 
180 END 

f***************************:************************************ 

AGE 

-from GREG LONGFIELD of ininois 


10 POKE 24578, 54s CALL 34061 
20 CALL 17046S POKE 40961,0 
30 DIM Z$(l) 

40 INPUT "HOW OLD ARE YOU IN YEARS", A 
50 B=365sC=24 

60 PRINT t PRINT i PRINT "YOU ARE APPROX." 

70 MUSIC "103050*10 50+10000" 

80 PRINT A*E*C 
90 PRINT "HOURS OLD" 

100 PRINT s PRINT i PRINT "BY THE APF MACHINE" 

110 PRINT I PRINT I INPUT "TRY AGAIN Y/N ",Z* 

120 IF Z»e"" THEN CALL 17046s END 

130 IF Z*="N‘' THEN CALL 17046s END 

140 IF Z»="Y" GOTO 10 

150 IF Z*<>”Y,N" GOTO 110 


LETTE 
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COLORS ?< SHAPES 

FROM LOUIS POOL, DCOLA, FLORIDA 


5 REM *SHPAE AND COLOR TESTS* L. 
10 CALL 17046 
15 FOR P=i TO 8 
20 COLOR =F-1 

30 X=15:Y=7:D-1; I=1:M=1:P=1 

40 SHAPE =1: PLOT X,Y 

41 SHAPE =2! PLOT X+I,Y 

42 SHAPE *4; PLOT X,Y*-P 

43 SHAPE =88 PLOT X+I,Y+P 

44 GOSUB 300 


45 1=1+1 :P=P+1 


50 

51 


54 

60 

65 

66 

67 

68 

69 

70 


SHAPE =1; PLOT X-D,Y--h 
SHAPE =2s PLOT X+I,Y-M 


SHAPE =4; PLOT X-D,Y+P 
SHAPE =8; PLOT X+l.Y+P 
GDSUB 300 
FOR K=1 TO 6 
D=D+2; I=I+2:M=M+1 ;P=P+1 
SHAPE =1: PLOT X-<2*M), 
SHAPE =4; PLOT X-<2*M), 
SHAPE =2: PLOT X+(2*M)+ 
SHAPE =8; PLOT X+<2*M)+ 
SHAPE =1: PLOT X-D,Y-M 


Y 

Y+P-M 

1,Y 

1 . V+P-tl 


71 

72 

73 

75 

76 

77 

78 
90 
90 
100 
105 
1 10 
1 12 


SHAPE =2: 
SHAPE =4 8 
SHAPE =8: 
SHAPE =1; 
SHAPE =2; 
SHAPE =4: 
SHAPE =8s 
GDSUB 300 


PLOT X+I,Y-M 
PLOT X-D,Y+P 
PLOT X+I,Y+P 
PLOT X,Y-M 
PLOT X+l.Y-M 
PLOT X,Y+P 
PLOT X+1,Y+P 


NEXT K 
NEXT F 
CALL 17026 
CALL 17046 


H=0 


DOOLEY* 


115 FOR W=0 TO 7 
120 R=0 

125 FOR F=0 TO 7 

130 B=0jV=0 

140 FOR K=0 TO 15 

150 COLOR =K+H: SHAPE =--Gs PLOT K+V,R 
160 GDSUB 300 


170 S=S+1;V=V+J. 
ISO NEXT K 
190 R=R+2 


page; 


COLOR ?< SHAPES < continued) 


195 NEXT F 


200 H=H+1 


371 

372 

373 

374 

375 

376 

377 

378 
380 
999 


NEXT W 
CALL 17026 
GOTO 10 
FOR N=1 TO 
ON F GOTO : 
MUSIC "10000" 
MUSIC "20000" 
MUSIC "30000" 
MUSIC "40000" 
MUSIC "50000" 
MUSIC "60000" 
MUSIC "70000" 


NEXT Ns 
374,375, 
GOTO 380 
GOTO 380 
GOTO 380 
GOTO 380 
GOTO 380 
GOTO 380 
GOTO 380 


5!A=0sA=1s 

^71,372,373, 


MUSIC ■‘#10000" 

RETURN 

END 


RETURN 

376,377,378 


******#*##***»***#*####******#♦#******♦#*#****#**»**»»#»»*»***** 


JACKPOT 


FROM JIM NEWMAN 8< STEPHEN GREENE OF CALIFORNIA 


CALL 17046; POKE 24578,38 
, INPUT "GIVE CASHIER MONEY IN QUARTERS", Y 

2 CALL 17046; PRINT " JACK POT"; MUSIC C" 1234567 7 654321" 

9 Y=Y-1; CALL 17046 

10 PRINT "#TRY YOUR LUCK" 

11 PRINT s PRINT s PRINT 

12 PRINT "##*#*#*#*###**#******»*##*****"; REM THERE ARE 30 STARS 
20 PRINT s PRINT s PRINT 

30 PRINT "*****##*******#***####****#*»*'■; REM IN THIS LINE THERE ARE #30 ST 
ARS 

31 GOSUB 8000 

32 PRINT "GAME IN SESSION"; REM THIS IS TO TELL YOU THE COMPUTER IS READY TO 
START 

40 IF KEY* <1)="S" THEN 50: REM PUSH DOWN TO KEEP GOING 

41 GOTO 40 

50 A= INT (4# RND (X)+l) 

51 B= INT <4* RND (X)+l) 

52 C= INT (4* RND (X)+l) 

53 L=6!P*2 


54 

55 

56 

57 

58 

59 

60 
70 
80 


MUSIC "* 7 " 


D=L*32+P+512 


POKE 40960,0/256 


POKE 40961, D- INT (D/256>*256 


MUSIC "/I" 
IF A=1 THEN 
IF A=2 THEN 
IF A=3 THEN 
IF A=4 THEN 


PRINT "CHERRY" 
PRINT "LIME" 
PRINT "LEMON" 
PRINT 
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JACKPOT < cont i nued > 


90 IF KEY* (1)="S'' THEN 100s REM PUSH DOWN TO KEEP GOING 

91 SOTO 90 

100 L=6:P=13s MUSIC "*7" 


101 

102 

103 

104 

105 
^ ->b 

107 

108 
110 
111 
120 
121 
122 

123 

124 

125 
128 

127 

128 

129 

130 
140 


D=L*32+P+512 
POKE 40960, D/; 
POKE 4096 1,D- 
MUSIC “/I" 

IF B=1 THEN 
IF B«2 THEN 
IF B=3 THEN 
IF B=4 THEN 
IF ,s£Y* (1) = 
GOTO 110 
L=6!P=23 
MUSTC "*7" 
D=L*32+P+512 
POKE 40960. D/; 
POKE 4096 l.D- 
MUSIC "/I" 

IF C=1 THEN 
IF C»=2 THEN 
IF C*3 THEN 
IF C=4 THEN 
IF A=1 IF B=1 
IF A=2 IF B=2 


INT <D/2S6)*256 

PRINT "CHERRY' 
PRINT "LIME" 

PRINT "LEMON" 
PRINT ■'«=«" 

THEN 120s PEM 


'.56 

INT <D/2S6)#256 

PRINT "CHERRY" 
PRINT "LIME" 

PRINT "LEMON" 
PRINT "===" 

IF C=1 THEN 9950 
IF C=2 THEN 9950 


PUSH DOWN TO KEEP GOING 


150 IF A*3 IF B=3 IF C»3 THEN 9950 
160 IF A=4 IF B=4 IF C=4 THEN 9950 
170 GOTO 9952 

7000 IF KEY* (1)="?" THEN RUN s REM PUSH CL TO START OVER 

7001 PRINT "PUSH CL TO START"; GOTO 9996 

8000 PRINT s PRINT s PRINT "MONEY LEFT": PRINT " ";Ys" QUARTERS" 

8001 IF Y=-l THEN CALL 17046s PRINT "OUT OF MONEY"; MUSIC "/2/1/3/2/ 

8002 IF Y=-l THEN 9995 

8003 RETURN 

9000 IF KEY* <1)="N" THEN 9s REM PUSH UP TO START OVER 

9001 GOTO 9000 

9950 MUSIC "*7»7*7*7#7*7*7*7#:7*7"s REM NO SPACES! 

9951 Y=Y+5: PRINT "WINNER" 

9952 PRINT "TO START OVER PUSH UP" 

9954 GOTO 9000 

9995 MUSIC " "s CALL 17046 

9996 S= INT (15* RND <X)+0)sC= INT <7* RND (X)+0) 

9997 SHAPE =S8 COLOR =C 

9998 P= INT (31* RND (X)+0)sL»15s PLOT P.L 

9999 GOTO 7000 
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LO-RES GRAPHICS 


FROM EDDIE BEDNAR 

1 POKE 24578,38 

2 A=15: B=14; C=16: D=13: E=14 

3 GOTO 20 

5 A=A+1: B=B+1: C=C+1 : GOTO 15 

7 A=A-1: C=C-1: GOTO 15 

8 D=IH-1: E=E+1: GOTO 15 

9 D=D-1: E=E-1: GOTO 15 
15 IF B=0 THEN END 

17 IF C=31 THEN END 

18 IF E=15 THEN END 

20 IF D=0 THEN END 

21 CALL 17046: COLOR=7: SHAPE=15 
25 PLOT A,D: PLOT A,E 

30 SHAPE=6; PLOT B,E 
35 SHAPE=9: PLOT C,E 
40 IF KEY$(1)="N" THEN 9 

45 IF KEY$(1)="S" THEN 8 

46 IF KEY$(1)="W" THEN 7 
50 IF KEYS(1)="E" THEN 5 
55 IF KEY$(1)=" " THEN 40 
60 GOTO 40 




FROM J. H. SCHARFEl-D 


Here is a small variation o+ the graphic program by Ken Whitmore 
that was published inthe Premier Issue of the Clubletter. It 
kind of looks like the "Burlington Mills" logo on T.V. 


1 CALL 17046 

2 POKE 24578,54 

10 SHAPE » 7 

15 FOR C=0 TO 7 

20 COLOR = C 

25 FOR A = 0 TO 15 

26 FOR X = 1 TO 2: NEXT X 

30 HLIN 0.31. A 

31 NEXT A 

32 FOR B = 0 TO 31:CDL0R*C+2 
35 VL I N O , 1 5 , B 

41 NEXT b’ 

43 FOR P = 1 TO 13SNEXT P 
45 NEXT C 
50 GOTO 10 
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STAR TRECK (continued 


2710 

2720 

2730 

2740 

2741 

2742 

2750 

2751 
2760 
2770 
2780 
2790 
2800 
2810 
281 1 
2820 
0830 


PRINT " STAR FLEET HAS DETERMINED THAT YOU ARE TOO BLOOD-THIRSTY." 
PRINT ■■ THEREFORE, IT HAS BEEN DECIDED THAT YOU WILL NOT BE ALLOWED 
PRINT "TO CONTINUE ON THIS RAMPAGE OF" 

PRINT "KILLING POOR LITTLE DEFENSELESS" 

PRINT "KLINGONS!" 

PRINT TAB (10) 5 "ADMIRAL WESTLAKE, " 
print " STAR FLEET COMMAND" 

GOTO- 2820 
INPUT A» 

RESTORE 

IF S4>=4 THEN 2710 
IF A»»“YES" THEN 2810 
IF A*<>"YES" THEN 2820 
S4*S4+1 
GOTO 350 
PRINT "" 

END 


1H(t*if*******t ***************************** t********************* 
SQUARE ROOT 

-from PAUL SCHNEIDER OF ILLINOIS 


10 INPUT "NUMBER WHOSE SUUAREFcOOT YOU WANT",N 
20 INPUT "YOUR GUESS ",A 
30 B=<A--2-fN) / (2)CA) 

40 IF B=A THEN GOTO 70 
50 A=B 
60 GOTO 30 

70 PRINT "THE SQUAREROOT OF ";N;" IS "sB 


**************************************************************** 

CUBE ROOT 

also from PAUL SCHNEIDER OF ILLINOIS 


10 INPUT "NUMBER WHOSE CUBE ROOT YOU WANT",N 
20 INPUT "YOUR GUESS", A 
30 B= (A#A*A*2+N) / (A»A*3) 

40 IF B=A THEN GOTO 70 
50 A=B 
60 SOTO 30 

70 PRINT "THE CUBE ROOT OF ";Nii" IS ";B 
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aprapp 



D-100 


THE BUILDING BLOCK 
(BB-1) 



MINI FLOPPY DISK 
DRIVE (D-100) 

Each APE mini-floppy disk 
drive gives you 72,000 bytes of 
additional storage capacity 
plus loading and accessing of 
data within seconds. Industry 
standard mini-floppy connec- 
tjons. 


THE IMAGINATION 
MACHINE (IM-1) 

Exciting, personal, home com- 
puter for home management, 
entertainment and education. 
User-programmable in BASIC 
or uses APF software 
cassette programs. Features 
9K RAM, 14K ROM, 53-key key- 
board, 32 characters x 16 line 
screen format, alpha numerics 
in up to 8 colors. Built-in 
sound synthesizer, built-in 
tape deck, 2 garije-style hand 
held controllers. 


This expansion device lets 
you use your APF Imagination 
Machine to its fullest degree. 
Easily plugged into the 
machine and requiring no 
additional power supply, it 
contains four universally 
adaptable ports for peripheral 
drive cartridges. 

For example, a cartridge, 
enabling hookup to any stand- 
ard printer or telephone 
modem. Ports can also hold 
cartridges for 8K RAM 
memory and mini-floppy disk 
drive. 



The EPSON MX 


TELEPHONE MODEM 
(TM-150) 

The APF modem 
(modulator/demodulator) 
allows you to hod; up the 
computer to a remote terminal 
over telephone lines and ac- 
cess time-sharing services or 
trade programs with a com- 
patible computer. 


TM-150 



The MX'80, shown above, is an 
80'Column bidirectional printer featuring the 
full 96-character ASCII set with descenders for 
easier reading, and offers a user-defined choice 
of 40, 66. 80 or 132 columns. 

One of the biggest breakthroughs offered by 
the MX-80 is the world’s first disposable print 
head. After its 50-million-character life expec- 
tancy. you simply buy a new one for under 
$30 and replace it yourself in seconds. 



ENTERPRIZES (FACTORY • DIRECT RELIABILITY) 

BOX 550, BARRINGTON, ILLINOIS 60010 - Phone 312/382-5244 to order 


mtaiie;- 




